The Macintosh Demo Applications CD/Apple-MacintoshDemoApplicationsCD-1.0-1992.iso/More Information/Personal Press 2.0/PPPouch/Additions/Text Columns/Continued Lines…/Continued Lines…

Text File | 1992-06-08 | 7KB | 278 lines

on startup
global bailout
global onPrefix, fromPrefix

checkTextToolIsOn
if bailout = false then

dialog129
if bailout = false then

put facingPages into hasFacingPages
set lockscreen to true
set lockcursor to true
put currentPage into theCurrentPage
if  hasFacingPages = TRUE then set facingPages to false
set shuffletextobjects to false
set mousecursor to busy
put textfont into thefont

put currentstorynumber() into thestory
put number(storyobjects in story theStory) into numObjects
subtract 1 from numObjects

progressdialog open
progressdialog show "Scanning pages…" "Continued Line Status"

repeat with i = 1 to number of pages
set mousecursor to busy
set currentpage to i
put empty into item 1 of thecurrentobjectloc
put empty into item 2 of thecurrentobjectloc
repeat with j = 1 to numObjects
set mousecursor to busy

put pageloc of object j of story theStory into theloc
if item 1 of theloc = i then
put theloc into thecurrentobjectloc
put j into theTextObject
put pageloc of object (j+1) of story theStory into theNextloc
end if -- thecurrentobjectloc = currentpage

end repeat -- j = 1 to numObject

if item 1 of thecurrentobjectloc = i then
if item 1 of theNextloc <> empty then
createJumpLine thecurrentobjectloc,thestory,theNextloc,thefont
end if
end if
end repeat -- i = 1 to number(pages)
progressdialog close
if  hasFacingPages = TRUE then set facingPages to TRUE
set currentPage to theCurrentPage

end if
end if
end startup

on createJumpLine thecurrentobjectloc,thestory, theNextloc, thefont
global onPrefix, fromPrefix


if (item 1 of thecurrentobjectloc) <> (item 1 of theNextloc) then
progressdialog show "creating Continued On line for page " ¬
& (item 1 of thecurrentobjectloc)
set mousecursor to busy
set currentpage to (item 1 of thecurrentobjectloc)
set mousecursor to busy

-- calc the size of the object required
put the rect in points of object (item 2 of thecurrentobjectloc) into objRectangle
put item 1 of objRectangle into rectleft
put item 3 of objRectangle into rectright
put item 4 of objRectangle into rectbottom
put rectbottom - 28 into recttop

-- now create the object and set its frame & fill properties
set mousecursor to busy
choose maintool
open story "jumpline" & currentpage & thestory & ticks()
draw rectangle in points from rectleft,recttop ¬
to rectright,rectbottom
close story
set mousecursor to busy
select objects number(objects)
set frameLineType to 1
set linePattern to 0 -- none
set fillPattern to 0 -- none
set mousecursor to busy

-- put the text in there and format it
set stylerecomposition to false
choose texttool
put "(" & onPrefix && "continued on page " & (item 1 of theNextLoc) & ")" ¬
into story currentStoryNumber()
select all text
set textfont to thefont
set textSize to 10
set textFace to italic
set rulerJustification to right
set stylerecomposition to true


-- make the object the minimum size required to hold the jump line
set mousecursor to busy
choose maintool
select empty
select object number(objects)
minimizeTextObjectSize

-- now put it at the bottom right corner
select empty
select object (item 2 of thecurrentobjectloc)
select object number(objects)
align to objects  right bottom

select empty
select object number(objects)
set textwrap  in points to 2 aroundRect


-- NOW CREATE CONTINUED FROM LINE
put "creating Continued From line for page " & (item 1 of theNextLoc) ¬
into theStatus
progressdialog show theStatus
set mousecursor to busy
set currentpage to (item 1 of theNextLoc)
set mousecursor to busy
put the rect in points of object (item 2 of theNextLoc) into objRectangle

put item 1 of objRectangle into rectleft
put item 3 of objRectangle into rectright
put item 2 of objRectangle into recttop
put recttop + 28 into rectbottom
set mousecursor to busy
choose maintool
open story "jumplineF" & currentpage & thestory & ticks()
draw rectangle in points from rectleft,recttop ¬
to rectright,rectbottom
close story
set mousecursor to busy
select objects number(objects)
set frameLineType to 1
set linePattern to 0 -- none
set fillPattern to 0 -- none
set mousecursor to busy
set stylerecomposition to false
choose texttool
put "(" & fromPrefix && "continued from page " & (item 1 of thecurrentobjectloc) & ")" ¬
into story currentStoryNumber()
select all text
set textfont to thefont
set textSize to 10
set textFace to italic
set rulerJustification to left
set stylerecomposition to true


-- make the object the minimum size required to hold the jump line
set mousecursor to busy
choose maintool
select empty
select object number(objects)
minimizeTextObjectSize

-- now put it at the bottom right corner
choose maintool
select empty
select object (item 2 of theNextLoc)
select object number(objects)
align to objects  left top

-- now apply text wrap
select empty
select object number(objects)
set textwrap  in points to 2 aroundRect
progressdialog show "Scanning pages…"


end if
end createJumpLine

on minimizeTextObjectSize

put measurements into oldmeasure
set measurements to points
put selectedObjects() into theSelection
choose textTool
select all text
put the textSelectionBounds in points into theBounds
put insetRect(theBounds,-5,-5) into theBounds
put (item 4 of theBounds ) - ( item 2 of theBounds ) into theHeight
set  height of object (item 1 of theSelection) to theHeight
select object (item 1 of theSelection)
choose textTool
if not StoryFits(story currentStoryNumber()) then
copyFit
end if
select object (item 1 of theSelection)
set measurements to oldmeasure
end minimizeTextObjectSize

on checkTextToolIsOn
global bailout

put "true" into bailout

if toolmode <> "textTool" then
answer "The TextTool must be turned on."
else if currentStoryNumber() = "none" then
answer "The text cursor must be blinking in a story."
else
put "false" into bailout
end if

end checkTextToolIsOn

on dialog129
global onPrefix, fromPrefix, bailout

put empty into onPrefix
put empty into fromPrefix

put  dialog (preload, 129) into thedialog

setDialogItem 7, contents, "See “"&userName of story currentstorynumber() &"”:"
setDialogItem 8, contents, "“"& userName of story currentstorynumber() &"”:"

repeat forever
setDialogItem 4, Doubleline
setDialogItem 11, Grayline
get dialog(display, thedialog)
switch it
case 1
exit repeat
exit switch
case 2
put "true" into bailout
exit dialog129
exit switch
case 3
helpDialog 128, "Continued Lines Help"
get dialog(view, thedialog)
exit switch
end switch

end repeat

put contentsof(item7) into onPrefix
put contentsof(item8) into fromPrefix

get dialog(dispose, thedialog)
end dialog129

function contentsof thedata
put itemdel into OldItemDel
set itemdel to "\"
get item 2 of thedata
set itemdel to OldItemDel
return it
end contentsof

on help

put  dialog (preload, 128) into thedialog
put "---a\0" into item2
put "---a\1" into item3
put "---a\2" into item4


repeat forever
get dialog(display, thedialog)
if (it = 1) then exit repeat
end repeat
get dialog(dispose, thedialog)

end help

    yz<
B
Ï